perm filename SAITRG[SYS,HE] blob sn#075698 filedate 1973-12-04 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		REQUIRE "SAITRG[SYS,HE]" LOAD_MODULE
C00003 ENDMK
CāŠ—;
	REQUIRE "SAITRG[SYS,HE]" LOAD_MODULE;
	EXTERNAL REAL SIMPLE PROCEDURE SIN (REAL X);
	EXTERNAL REAL SIMPLE PROCEDURE COS (REAL X);
	EXTERNAL REAL SIMPLE PROCEDURE SIND (REAL I);
	EXTERNAL REAL SIMPLE PROCEDURE COSD (REAL I);
	EXTERNAL REAL SIMPLE PROCEDURE ASIN (REAL X);
	EXTERNAL REAL SIMPLE PROCEDURE ACOS (REAL X);
	EXTERNAL REAL SIMPLE PROCEDURE SQRT (REAL X);
	EXTERNAL REAL SIMPLE PROCEDURE ATAN (REAL X);
	EXTERNAL REAL SIMPLE PROCEDURE ATAN2 (REAL Y,X);